home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
JCSM Shareware Collection 1996 September
/
JCSM Shareware Collection (JCS Distribution) (September 1996).ISO
/
tutorial
/
trac.zip
/
EX-III-1.OBJ
< prev
next >
Wrap
Text File
|
1990-01-24
|
2KB
|
41 lines
0002 0 0002 0 Origin to define I as 3
0003 0 I 0
0009 0 0009 0 Re-origin past index registers
0010 400037 STRT RDMAX Read in number of values
0011 000042 LDZERO Load zero
0012 030003 STI Initialize I
0013 3401000 READ 3RDX Read a X(I)
0014 000003 LDI Load I
0015 010043 ADONE Add 1
0016 030003 STI Save new I
0017 020037 SUMAX Subtract MAX
0018 240013 BNREAD If I < MAX go back to READ
0019 000042 LDZERO
0020 030003 STI Initialize I
0021 030038 STS Initialize S
0022 030039 STS2 Initialize S2
0023 3001000 LOOP 3LDX Load X(I)
0024 010038 ADS Add S
0025 030038 STS Store at S
0026 3001000 3LDX Load X(I)
0027 3151000 3MUX Multiply by X(I)
0028 010039 ADS2 add S2
0029 030039 STS2 Store at S2
0030 000003 LDI Increment I
0031 010043 ADONE
0032 030003 STI
0033 020037 SUMAX Test for done
0034 240023 BNLOOP Repeat loop if not done
0035 410037 PCMAX Display MAX, S, S2
0036 500000 HT0000 Halt
0037 0 MAX 0 Reserve read area for MAX
0038 0 S 0 Put S here for output
0039 0 S2 0 Put S2 here for output
0040 0 0 Reserve 2 locations for read and print
0041 0 0
0042 0 ZERO 0 Constant ZERO
0043 1 ONE 1 Constant 1
0999 0 0999 0 Re-origin for array X
1000 0 X 0 Starts X at 1000, can use rest of memory
9999 000010 ENSTRT End-of-code